home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / docs / skeletad.lha / SkeletonKrewAGAHDInstall2.lha / Install / Skeleton Krew Install < prev    next >
Encoding:
Text File  |  1995-01-20  |  1.9 KB  |  67 lines
  1. ; $VER: Skeleton Krew HD Install-Script V1.0 (20.1.95) by Roland for ACCESS
  2.  
  3. (set GameDir "Skeleton Krew")
  4. (set TotalDisks 3)
  5. (set CurrentDisk 0)
  6. (set Percent 20)
  7. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  8. (set keuze 0)
  9.  
  10. ;try to figure out a place where the user usually installs his games
  11. (if (exists "Games:" (noreq) )
  12.     (set @default-dest "Games:")
  13.     (if (exists "SYS:Games" (noreq) )
  14.         (set @default-dest "SYS:Games")
  15.         (if (exists "Work:Games" (noreq) )
  16.             (set @default-dest "Work:Games")
  17.             (set @default-dest "SYS:")
  18.         )
  19.     )
  20. )
  21.  
  22. ;ask the user to select a directory to install the game into
  23. (set default-dest
  24.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  25.                              "A drawer called " GameDir " will be created.")
  26.                      (help @askdir-help)
  27.                      (default @default-dest)
  28.                      (newpath)
  29.              )
  30.      GameDir
  31.      )
  32. )
  33. (set @default-dest default-dest)
  34. (complete 5)
  35.  
  36. ;create the selected directory and a subdirectory called Data
  37. (makedir @default-dest
  38.          (infos)
  39. )
  40. (complete 10)
  41.  
  42. ;copy all extra files to this directory
  43. (copyfiles (source "Skeleton Krew.6mb")
  44.            (dest @default-dest)
  45.            (newname "Skeleton Krew")
  46. )
  47. (copyfiles (source "Skeleton Krew.6mb.icon")
  48.            (dest @default-dest)
  49.            (newname "Skeleton Krew.info")
  50. )
  51. (complete Percent)
  52.  
  53. ;copy all the disks to the data directory
  54. (until (= CurrentDisk TotalDisks)
  55.        (set CurrentDisk (+ CurrentDisk 1))
  56.        (message "\n\n\n\n\n\nPlease insert " @app-name " Disk "
  57.                 CurrentDisk " into DF0:"
  58.        )
  59.        (working "\n\n\n\nConverting disk " CurrentDisk "\n"
  60.        )
  61.        (run (cat "Read DISK " CurrentDisk " TO \"" (tackon @default-dest (cat "SkeletonKrew.D" CurrentDisk) ) "\"" )
  62.        )
  63.        (set Percent (+ Percent DiskPercent))
  64.        (complete Percent)
  65. )
  66. (complete 100)
  67.